home *** CD-ROM | disk | FTP | other *** search
/ Classic Games for OS/2 Warp / Classic Games for OS2 Warp (1995)(IBM).iso / simcity / makeobj.cmd < prev    next >
OS/2 REXX Batch file  |  1995-07-12  |  3KB  |  78 lines
  1. /* Rebuild gamepak icon for PMUNOO */
  2. rc = RxFuncAdd( "SysCreateObject", "RexxUtil", "SysCreateObject" )
  3. rc = RxFuncAdd( "SysDriveMap", "RexxUtil", "SysDriveMap" )
  4. rc = RxFuncAdd( "SysDriveInfo", "RexxUtil", "SysDriveInfo" )
  5. rc = RxFuncAdd( "SysFileTree", "RexxUtil", "SysFileTree" )
  6.  
  7. /* App setup strings */
  8. Dir      = "\FUNPAK\SIMCITY\"                     /*Directory to search for*/
  9. ExeName  = "SIMCITY.EXE"                                    /*Exe File name*/
  10. IconName = "SIMCITY.ICO"                          /*Icon title for exe file*/
  11. FldrName = "FPFOLDER"                        /*destination folder for icons*/
  12. Setup    = "ICONFILE=" || IconName || ";EXENAME=" || ExeName || ";STARTUPDIR=" || Dir
  13.  
  14. /* get a list of all local drives */
  15. Map = SysDriveMap( , "LOCAL" )
  16.  
  17. /* search for gamepak drive & dir */
  18. Do I=1 to Words(Map)
  19.  
  20.    Drive = Strip( Word(Map, I) )
  21.  
  22.    /* Check if Drive is Accessable */
  23.    If ( (SysDriveInfo(Drive) \= "" ) & ,
  24.         (Strip(Word(SysDriveInfo, 2)) \= "0") ) then Do
  25.  
  26.       /* Insure Exe File Exists */
  27.       rc = SysFileTree( Drive || Dir || ExeName, "File.", "FO" )
  28.  
  29.       If (File.0 == 1) Then Do
  30.          /******************************************/
  31.          /* Exe found - create icons inside folder */
  32.          /******************************************/
  33.          Name = File.1
  34.  
  35.          DestFolder = "<" || FldrName || ">"
  36.  
  37.          /* Add Exe */
  38.          Class  = "WPProgram"
  39.          Title  = "Simcity"
  40.          Loc    = DestFolder
  41.          Setup  = "ICONFILE=" IconName || ";EXENAME=" || Name || ,
  42.                   ";STARTUPDIR=" || Drive || Dir
  43.          Opts   = "Fail"
  44.          ok = SysCreateObject( Class, Title, Loc, Setup, Opts )
  45.  
  46.          /* Insure Icon was created:                                   */
  47.          /* Might fail because object already exists (more than 1      */
  48.          /* copy installed?)  Add drive letter to Title name and OBJID */
  49.          /* and try to recreate object                                 */
  50.          If (ok == 0) Then Do
  51.             Title = Title || " on " || Drive
  52.             Opts = "Replace"
  53.             ok = SysCreateObject( Class, Title, Loc, Setup, Opts )
  54.             End
  55.  
  56.          /* Add Manual File */
  57.          Class  = "WPProgram"
  58.          Title  = "Simcity Manual"
  59.          Loc    = DestFolder
  60.          Setup  = "ICONFILE=" IconName || ";EXENAME=E.EXE" ,
  61.                   ";STARTUPDIR=" || Drive || Dir || ";PARAMETERS=MANUAL.TXT"
  62.          Opts   = "Replace"
  63.          ok = SysCreateObject( Class, Title, Loc, Setup, Opts )
  64.  
  65.          /* Add Help File */
  66.          Class  = "WPProgram"
  67.          Title  = "Simcity ReadMe"
  68.          Loc    = DestFolder
  69.          Setup  = "ICONFILE=" IconName || ";EXENAME=E.EXE" ,
  70.                   ";STARTUPDIR=" || Drive || Dir || ";PARAMETERS=README"
  71.          Opts   = "Replace"
  72.          ok = SysCreateObject( Class, Title, Loc, Setup, Opts )
  73.  
  74.  
  75.          End
  76.       End
  77.    End
  78.